home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / FPUTEST.M < prev    next >
Encoding:
Text File  |  1992-04-01  |  546 b   |  31 lines
  1. MODULE RealTest; (*$E MOS *)
  2.  
  3. FROM SYSTEM IMPORT ADR, NEWPROCESS, ADDRESS, ASSEMBLER;
  4. IMPORT SYSTEM;
  5.  
  6. IMPORT GEMDOSIO;
  7. FROM InOut IMPORT WriteString, Write, WriteLn, WriteReal, ReadReal;
  8.  
  9. PROCEDURE loc;
  10.  
  11. VAR r1, r2: REAL;
  12.  
  13. BEGIN
  14.   (*$X+*)
  15.   ASSEMBLER BREAK FMOVE #$0000F400,FPCR (* s.o.*) END;
  16.   r1:= 1.E18;
  17.   r2:= 2.;
  18.   WriteReal (r1, 10, 2);
  19.   WriteReal (r2, 10, 2);
  20.   WriteLn;
  21.   r1:= r1*r1;
  22.   WriteLn;
  23.   WriteString ('main:');
  24.   WriteReal (r1, 10, 2);
  25.   WriteReal (r2, 10, 2);
  26. END loc;
  27.  
  28. BEGIN
  29.   loc
  30. END RealTest.
  31.